#!/usr/bin/perl
##################################################
#                                                # 
#       -- Unix Rendered Instant Tabler --       #
#                                                #
#               -- version 0.98 --               #
#                                                #
#             -- coded by InVerse --             #
#                                                #
##################################################
#                                                #
# Created: 08-05-2000  Last Modified: 08-05-2000 #
#                                                #
#      Homepage: http://www.pigtails.net/ST      #
#                                                #
# (C)opyright 2001 InVerse   All Rights Reserved #
#                                                #
##################################################
# URIT is a simple table maker for Unix. It has  #
# been tested on FreeBSD and Solaris but due to  #
# the simplistic nature of the program, I don't  #
# foresee it having any problems running on any  #
# other flavors of Unix. You should not have to  #
# modify anything in the code to get it to work  #
# except possibly the path to Perl on the first  #
# line of this file.                             #
#                                                #
# Unix Rendered Instant Tabler v0.98 is a fully  #
# functional English table maker. The design is  #
# based on Jair's Table Maker for Windows and I  #
# hope to implement support for romaji to kana   #
# based on his code. I'd like to thank Jair for  #
# giving me permission to use his code. You can  #
# visit his site at (http://fly.to/vale).        #
#                                                #
##################################################

print "Enter the filename for the table: ";
$table = <>;

print "Enter starting hex value: ";
$start = <>;

print "Enter ending hex value: ";
$stop = <>;

for ($i = hex($start); $i <= hex($stop); $i++) {
	$hex = sprintf("%lx", $i);
	if ($i <= 15) {
		$hex = "0" . $hex;
	}
	print "$hex=";
	$hexv[$i] = $hex;
	$value[$i] = <>;
	$output[$i] = $hexv[$i]."=".$value[$i];
}

open(TABLE, "> $table");
foreach $output (@output) {
	print TABLE $output;
}
close(TABLE);

##################################################
# (C)opyright 2001 InVerse   All Rights Reserved #
##################################################